home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aaq.d64 / staff writer (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  95 lines
  1. 5 REM *SEE STATEMENT AT END OF LISTING*
  2. 10 A$="[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  3. 20 A$=A$+"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  4. 30 B$="[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  5. 40 B$=B$+"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  6. 50 C$="[180]                                       "
  7. 55 C$=C$+"                                       [170]"
  8. 60 PRINT"[147]":POKE53280,2:POKE53281,2
  9. 70 PRINT""
  10. 75 PRINT" COMPILED BY:               DONN WALTER"
  11. 80 PRINT"[206][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][205]"
  12. 90 PRINT"[145][180]                                      [170]"
  13. 100 PRINT"[145][180]  [155][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][209][155][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]  [170]"
  14. 102 PRINT"[145][180]  [155][207][183][183][183][183][170][155][183][183][183][183][183][183][183][183][183][170][155][183][209][155][183][183][183][183][183][183][170][155][183][183][183][183][183][183][183][183][208]  [170]"
  15. 104 PRINT"[145][180]  [155][207][183][183][183][183][170][155][183][183][183][183][183][183][183][183][183][170][155][183][170][155][183][183][183][183][183][183][170][155][183][183][183][183][183][183][183][183][208]  [170]"
  16. 106 PRINT"[145][180]  [155][207][183][183][183][183][209][155][183][183][183][183][183][183][183][183][183][183][205][155][170][155][183][183][183][183][183][183][209][155][183][183][183][183][183][183][183][183][208]  [170]"
  17. 108 PRINT"[145][180]  [155][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]  [170]"
  18. 110 PRINT"[145][180]      [153] S T A F F   W R I T E R        [170]"
  19. 112 PRINT"[145][180]                                      [170]"
  20. 114 PRINT"[145][180]                                      [170]"
  21. 116 PRINT"[145][180]      PRESS [155](1[155])   =  SINGLE STAFF     [170]"
  22. 118 PRINT"[145][180]                                      [170]"
  23. 120 PRINT"[145][180]                                      [170]"
  24. 122 PRINT"[145][180]      PRESS [155](2[155])   =  DOUBLE STAFF     [170]"
  25. 124 PRINT"[145][180]                                      [170]"
  26. 126 PRINT"[145][180]                                      [170]"
  27. 128 PRINT"[145][180]                                      [170]"
  28. 130 PRINT"[145][180]                                      [170]"
  29. 132 PRINT"[145][180]                                      [170]"
  30. 134 PRINT"[145][205][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][206]"
  31. 140 PRINT"PLEASE TURN PRINTER ON BEFORE GOING ON:"
  32. 150 GETK$:IF K$="" THEN 150
  33. 160 PRINT"[145][145][145][145][145][145]PLEASE WAIT WHILE PRINTING....."
  34. 165 PRINT"[145][144][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  35. 170 IF K$<>"1" AND K$<>"2" THEN 150
  36. 180 IF K$="1" THEN GOTO 210
  37. 190 IF K$="2" THEN GOTO 400
  38. 210 OPEN4,4
  39. 220 PRINT#4,CHR$(27);CHR$(10);CHR$(22)
  40. 230 FOR O=1 TO 9
  41. 240 PRINT#4:PRINT#4:PRINT#4:PRINT#4
  42. 250 FOR I=1 TO 4
  43. 260 PRINT#4,A$
  44. 270 NEXT I
  45. 275 PRINT#4,B$
  46. 280 NEXT O
  47. 290 PRINT#4,CHR$(0)
  48. 300 CLOSE4
  49. 310 GOTO700
  50. 400 OPEN4,4
  51. 410 PRINT#4,CHR$(27);CHR$(10);CHR$(22)
  52. 420 FOR O=1 TO 5
  53. 430 PRINT#4:PRINT#4:PRINT#4:PRINT#4
  54. 440 FOR I=1 TO 5
  55. 450 PRINT#4,A$
  56. 460 NEXT I
  57. 470 FOR P=1 TO 3
  58. 480 PRINT#4,C$
  59. 490 NEXT P
  60. 500 FOR I=1 TO 4
  61. 510 PRINT#4,A$
  62. 520 NEXT I
  63. 530 PRINT#4,B$
  64. 540 NEXT O
  65. 550 PRINT#4,CHR$(0)
  66. 560 CLOSE4
  67. 570 GOTO 700
  68. 700 PRINT"[147]":POKE53281,9:POKE53280,9
  69. 710 PRINT"WOULD YOU LIKE TO PRINT ANOTHER?"
  70. 715 PRINTTAB(17)"(Y/N)"
  71. 717 PRINT" COMPILED BY:               DONN WALTER"
  72. 720 GET K$:IF K$=""THEN 720
  73. 730 IF K$="Y" THEN GOTO 10
  74. 740 IF K$="N" THEN PRINT"[147]SEE Y'ALL LATER!!!
  75. 750 [128]
  76. 780 [143]   **************************
  77. 790 [143]   *                        *
  78. 800 [143]   *  PLEASE NOTICE LINES:  *
  79. 810 [143]   *                        *
  80. 820 [143]   *    220         410     *
  81. 830 [143]   *    290         550     *
  82. 840 [143]   *                        *
  83. 850 [143]   *  THESE LINES ARE CHR$  *
  84. 860 [143]   *       STATEMENTS       *
  85. 870 [143]   *   FOR CONDENSED LINE   *
  86. 880 [143]   * CONTROL AND DEFAULT ON *
  87. 890 [143]   *      A STAR GEMINI     *
  88. 900 [143]   *         PRINTER!       *
  89. 910 [143]   *                        *
  90. 920 [143]   *  THEY MAY NEED EDITING *
  91. 930 [143]   *    IN ORDER TO WORK    *
  92. 940 [143]   *    ON YOUR PRINTER!    *
  93. 950 [143]   *                        *
  94. 960 [143]   **************************
  95.